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Reference to Pending Applications 

This application is a continuation-in-part application based on Provisional Patent Application 
60/200,483 filed on April 28, 2000 and entitled "System, Method and Article of Manufacture To 
Facilitate Fuel Station Advertising". 

Reference to Microfiche Appendix 

This application is not referenced in any microfiche appendix. 

Technical Field of the Invention 

In general, the present application relates to automated advertising displays. In particular, 
the present invention relates to a system, method and article of manufacture for retrieving, 
dynamically modifying and presenting audibly and visually perceptible content upon a remote 
presentation device. 

Background of the Invention 

Advertising systems and display units intended for use in remote locales are well represented 
in the prior art. For example: 

United States Patent No. 5, 1 34,7 1 6 issued on July 28, 1 992 to David J. Craig, subsequently 
assigned to Caltex Oil Pty. Limited discloses a Point of Sale Audio-Visual Advertising System 
which has a central station and a plurality of outstations. The central station is generally located in 
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a shop attached to service or filling stations which sell petroleum products such as gasoline, while 
the outstatations are located at self-service pumps located on the driveway of the service station. The 
system provides audio-visual advertising material to the purchaser while the tank filling operation 
is in progress and immediately prior to his entry into the shop area. 

United States Patent No. 5,717,374 issued on February 10, 1998 to Harry F. Smith and 
United States Patent No. 5,914,654 issued on June 22, 1999 to Harry F. Smith, both subsequently 
assigned to Intellectual Property Development Associates of Connecticut, Inc., discloses a Methods 
and Apparatus For Inputting Messages, Including Advertisements, To A Vehicle. The methods and 
apparatus are disclosed for inputting messages and other information, such as advertisements, to a 
vehicle while the vehicle is coupled to a local station, such as a recharging station or a refueling 
station. The messages can be selected in accordance with information received from the vehicle, 
including information that selectively identifies one, some or all of: (a) a characteristic of an 
occupant of the vehicle (e.g. name, account number, address, etc.); (b) a characteristic of the vehicle 
(e.g. make, model, year, class, registration number, marker number, odometer reading, owner, etc.); 
(c) a destination of the vehicle (entered through a data entry console and optionally stored within a 
vehicle memory); and (d) any other characteristic of interest. 

United States Patent No. 5,980,090 issued on November 9, 1999 to William C. Royal Jr. 
and Randall O. Watkins, subsequently assigned to Gilbarco, Inc., discloses an Internet Asset 
Management System For A Fuel Dispensing Environment. This invention provides communication 
servers at each device in a fueling environment and connecting the servers to a common network. 
The network may be a local network or a largely remote network, such as the Internet. Preferably, 
in either embodiment, primary communications between these devices and any devices accessible 


via the Internet use the hypertext transfer protocol (HTTP) and hypertext markup language (HTML) . 
In particular, each device server is adapted to facilitate real-time access between the device server 
and the remote device upon access of a particular page, script or function. In particular, the present 
invention relates to embedding executable content onto an HTML page so that when the page is 
loaded into an HTML browser after being accessed, the executable content starts running 
automatically, 

United States Patent No. 6,032,126 issued on February 29, 2000 to David L. Kaehler, 
subsequently assigned to Gilbarco, Inc., discloses an Audio and Audio/Video Operator Intercom For 
A Fuel Dispenser. An apparatus for installation in a retail setting for selling fuel and other products 
ordered by a customer interacting with an operator. A video control system interfaces an external 
audio/video signal source with an audio/video signal source from an other product ordering 
apparatus operator. The external audio/video source transmits advertising and promotional materials 
to a video display located on a card reader equipped fuel dispenser. Additionally, customers can 
signal and communicate through audio/video signals with the operator to order other merchandise. 
Total transaction costs for fuel and non-fuel products is provided and paid for at the fuel dispenser. 

However, none of the afore cited references clearly delineate, discuss, disclose or claim a 
system, method or article of manufacture whereby timely geographically relevant information can 
be purposed and presented to specific refueling locals in conjunction with or independent of 
advertising content also intended for the specific local. 


Brief Summary of the Invention 

An audio/visual advertising system is disclosed which has one or more computer compatible 
communication networks content acquisition and display presentation central processing units, 
multiple function presentation units and first and second software means which allow for the 
retrieval and presentation of advertising and geographically relevant content. 

Consequently, it is an objective of the instant invention to allow for the acquisition, 
dispersion and presentation of geographically relevant information to a selective receiving location 
within a larger universe of such locations. 

It is a further objective of the instant invention to allow for the presentation of advertising 
media at a remote station accompanied with geographically relevant information, such as but not 
limited to, weather, weather alerts, sporting news, national or regional news, etc. 

It is another objective of the instant invention to allow the consumer to interact with the 
present invention via a touch screen communications capability. 

Another objective of the instant invention is to allow the consumer to interact with the 
present invention via an audibly receptive communications capability. 

It is another objective of the instant invention to provide for the presentation of 
geographically relevant information and advertising media at a remote station utilizing a computer 
compatible communication means, such as computerized networks including terrestrial and satellite 
communications. 

Another objective of the instant invention is to allow for a first transmission of advertising 
media supplemented with subsequent repeated transmissions providing updated geographically 
relevant information within a predetermined time interval. 


Other objects and further scope of the applicability of the present invention will become 
apparent from the detailed description to follow, taken in conjunction with the accompanying 
drawings wherein like parts are designated by like reference numerals. 
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Description of the Drawings 

Figure 1 is a system schematic illustrating the invention's primary hardware and software 
processing components as practiced in its preferred embodiment. 

Figure 2 illustrates a program component which facilitates the retrieval, processing and 
transmitting of ticker information. 

Figure 3 illustrates the programming means steps which facilitate the processing and 
transmitting of image files. 

Figure 4 is a flowchart representing Phase II software functionality. 

Figure 5 is a simplified diagram denoting primary processing steps associated with data 
acquisition as practiced in the invention's preferred embodiment. 

Figure 6 is a simplified diagram denoting primary processing steps associated with fueling 
site presentation of acquired data and advertising content as practiced in the invention's preferred 
embodiment. 

Figure 7 is an illustrative information presentation format as practiced by the invention in 
its preferred embodiment. 
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Detailed Description of the Preferred Embodiment 

While the making and using of various embodiments of the present invention are discussed 
in detail below, it should be appreciated that the present invention provides for inventive concepts 
capable of being embodied in a variety of specific contexts. The specific embodiments discussed 
5 herein are merely illustrative of specific manners in which to make and use the invention and are not 
to be interpreted as limiting the scope of the instant invention. 

The claims and the specification describe the invention presented and the terms that are 
employed in the claims draw their meaning from the use of such terms in the specification. The 
same terms employed in the prior art may be broader in meaning than specifically employed herein. 
1 0y§ Whenever there is a question between the broader definition of such terms used in the prior art and 
ap the more specific use of the terms herein, the more specific meaning is meant. 
1/J While the invention has been described with a certain degree of particularity, it is clear that 

7" many changes may be made in the details of construction and the arrangement of components 
JS without departing from the spirit and scope of this disclosure. It is understood that the invention is 
1 5JJ not limited to the embodiments set forth herein for purposes of exemplification, but is to be limited 
only by the scope of the attached claim or claims, including the full range of equivalency to which 
each element thereof is entitled. 

Figure 1 is a system schematic illustrating primary hardware and software components of the 
instant invention as practiced in its preferred embodiment. In Figure 1 , first software 3 executing 
20 within a data acquisition central processing unit 5 facilitates the acquisition of advertising and 
geographically relevant data. The present invention allows for such data acquisition to be facilitated 
via a plurality of means. For instance, data may be presented to the data acquisition central 
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processing unit 5, without limitation, via a transporable storage means, such as a floppy disk or 
computer readable recording tape commonly used to distribute advertising content or compact disk. 
Additionally, said first software 3 can acquire content via a computer compatible network 
communication means. Examples of such computer compatible network communication means well 
known and practiced in the art would include, without limitation, local area networks (LAN' s) 5 wide 
area networks (WAN's) metropolitan area networks (MAN's), campus area networks (CAN's), 
Extranets, Intranets and the Internet. Content so acquired will typically be represented as 
geographically relevant information with multiple and diverse geographic records delineated via the 
insertion of a delineation code appended to a relevant record or records incorporated within an 
acquisition file. Said appending of said delineation code is facilitated by said first software 3. The 
delineated information is then compiled into a computer recognizable file structure, and stored to 
a storage means accessible to said data acquisition central processing unit 5. In the invention's 
preferred embodiment said storage means is represented and accessible as a page associated with a 
Web-site, though any file structure recognized by a computer based transmission protocol will 
facilitate practice of the invention. In the invention's preferred embodiment, File Transfer Protocol 
(hereinafter, referred to synonymously referred to as "FTP") and M-PEG file structures are utilized. 

Continuing with discussion relating to Figure 1 . The stored file embodying geographically 
delineated records is then transmitted over a communications link 7 to a transceiver facility, such 
as, but not limited to a satellite office central processing unit 10. Once resident and accessible to the 
transceiver facility 10, the transceiving facility 10 further transmits the received file to a satellite 
transceiver 15 over a second communications link, or hard wired connection 12 for subsequent 
transmission to an orbiting satellite 20, via a third communications link 16. The orbiting satellite 


20 then transmits or otherwise broadcasts the delineated file to a plurality of geographically 
dispersed terrestrial receiving units 24, via a fourth communications link 22. Said geographically 
dispersed terrestrial receiving units 24 possess a receiving decoding means by which information 
geographically relevant to the physical location of said the ground unit 24 is decoded and presented 

5 to a remote site central processing unit 25. Such selective receipt decoding and presentation of said 
information would be directed towards as an example, include retail locations such as retail outlets 
within a specific neighborhood, town, city, state, region, or country. Said means of presenting 
selective content to local central processing unit(s) from a selective decoding device are well known 
and practiced by those skilled in the art. As an alternative communication means to facilitate the 

1 Offt transfer of geographically relevant information and advertising media between said data acquisition 
J£ central processing unit 5 and said remote site central processing unit 25, a computer compatible 
network such as the Internet may be used as an alternative to augment, supplement or replace the 
^ aforestated satellite base communication process. Second software 26 executing within the remote 
jg site central processing unit 25 then identifies and divides audio, video and text records contained 

130s within the transmitted file intended for received ground unit 24 and, stores such information in 
^ separate and distinct file structures accessible to said remote site central processing unit 25 and 
transmits said previously acquired content to an information presentation device 29. Said 
transmission occurring and facilitated via radio frequency (RF) transmission/receiving means 27 
well known and practiced by those skilled in the art. Alternatively, said transmission may be 

20 facilitated via a hard wire/cable communication link 27 between said remote site central processing 
unit 25 and said information presentation device 29. 
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Software processes of the present invention as practiced in its preferred embodiment can 

best be understood as occurring in two distinct phases. Phase I (a.k.a "first software") 3, executed 

within a data acquisition central processing unit 5, and Phase II (a.k.a. "second software") 26, 

executed from within a remote site central processing unit 25 . Phase I of source code for said first 

5 software is immediately included herein for purposes of providing full and enabling disclosure, 

' Reg Key Security Options... 

Const KEYALLACCESS = &H2003F 

'Reg Key ROOT Types... 
1 0 Const HKEY_LOCAL_MACHINE = &H80000002 
Const ERROR_SUCCESS - 0 

Const REG_SZ = 1 ' Unicode nul terminated string 

Const REGJDWORD = 4 ' 32-bit number 

1 SO Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" 

m Const gREGVALSYSINFOLOC - "MSINFO" 

CI Const gREGKEYSYSINFO = M SOFTWARE\Microsoft\Shared Tools\MSINFO" 

£ Const gREGVALSYSINFO - "PATH" 

20nj Private Declare Function RegOpenKeyEx Lib n advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal 

ffl IpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long 

y j Private Declare Function RegQuery ValueEx Lib "advapi32" Alias "RegQuery ValueExA" (ByVal hKey As Long, ByVal 

s lpValueName As String, ByVal IpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData 

Q As Long) As Long 

25j| Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long 

?jk Private Sub Form_Load() 
P>v LoadResStrings Me 

rr IblVersion.Caption = "Version " & App.Major & & App. Minor & "." & App.Revision 

3CT" lblTitle.Caption - App.Title 
End Sub 

Private Sub cmdSysInfo_Click() 
Call StartSysInfo 
35 End Sub 

Private Sub cmdOK_Click() 

Unload Me 
End Sub 

40 

Public Sub StartSysInfoO 
On Error G0T0 SysInfoErr 

Dim rc As Long 
45 Dim SysInfoPath As String 
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' Try To Get System Info Program PathAName From Registry... 

If GetKey Value(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 
' Try To Get System Info Program Path Only From Registry... 

Elself GetKeyValue(HKEY_LOCALJVIACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, 
SysInfoPath) Then 

' Validate Existance Of Known 32 Bit File Version 
If (Dir(SysInfoPath & "\MSINF032.EXE") <> "") Then 
SysInfoPath = SysInfoPath & "\MSINF032.EXE M 


' Error - File Can Not Be Found... 
Else 

GoTo SysInfoErr 
End If 

' Error - Registry Entry Can Not Be Found... 
Else 

GoTo SysInfoErr 
End If 

Call Shell(SysInfoPath, vbNormalFocus) 

Exit Sub 
SysInfoErr; 

MsgBox "System Information Is Unavailable At This Time", vbOKOnly 
End Sub 


Public Function GetKey Value(KeyRoot As Long, KeyName As String, SubKey Ref As String, ByRef Key Val As String) 
As Boolean 

Dim i As Long ' Loop Counter 

Dim rc As Long * Return Code 

Dim hKey As Long 1 Handle To An Open Registry Key 

Dim hDepth As Long ' 

Dim KeyValType As Long ' Data Type Of A Registry Key 

Dim top Val As String 1 Tempory Storage For A Registry Key Value 

Dim KeyValSize As Long f Size Of Registry Key Variable 


* Open RegKey Under KeyRoot {HKEY LOCAL MACHINE. . . } 

rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 1 Open Registry Key 
If (rc o ERRORSUCCESS) Then GoTo GetKey Error ' Handle Error... 

tmpVal - String$(1024, 0) ' Allocate Variable Space 

KeyValSize - 1024 ' Mark Variable Size 


' Retrieve Registry Key Value... 

rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value 
If (rc o ERROR_SUCCESS) Then GoTo GetKey Error 1 Handle Errors 


tmpVal - VBA.Left(tmpVal, InStr(tmpVal, VBA.Chr(O)) - 1) 


' Determine Key Value Type For Conversion... 


11 


Select Case KeyValType 1 Search Data Types... 

Case REG_SZ ' String Registry Key Data Type 

KeyVal = tmpVal ' Copy String Value 

Case REG_DWORD ' Double Word Registry Key 
5 Data Type 

For i = Len(tmpVal) To 1 Step - 1 ' Convert Each Bit 

KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) * Build Value Char. By Char. 

Next 

KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String 
10 End Select 

GetKey Value = True ' Return Success 

rc = RegCloseKey(hKey) ' Close Registry Key 

Exit Function 1 Exit 

15 

GetKey Error: ' Cleanup After An Error Has Occured... 

KeyVal = ' Set Return Val To Empty String 

GetKeyValue = False ' Return Failure 

rc = RegCloseKey(hKey) ' Close Registry Key 
20 End Function 

VERSION 5.00 
13 Begin VB.Form frmAbout 
J1 BorderStyle = 3 'Fixed Dialog 
25fj% Caption = "About MediaVision" 
5 ClientHeight - 3630 
jut ClientLeft = 45 
m ClientTop - 330 
m ClientWidth - 5865 
3(f;= ClipControls = 0 'False 
LinkTopic - "Forml" 
MaxButton = 0 'False 
y MinButton = 0 'False 
J! ScaleHeight = 3630 
35^ Scale Width - 5865 
j\ s ShowInTaskbar = 0 'False 
^ StartUpPosition = 1 'CenterOwner 
U Tag = "1077" 

Begin VB.PictureBox piclcon 
40 AutoSize = -1 True 

BackColor - &H00COC0CO& 
ClipControls = 0 'False 
Height - 540 
Left - 240 

45 Picture - n frmAboutfrx ,, :0000 

ScaleHeight = 480 
ScaleMode = 0 'User 
ScaleWidth = 480 
Tablndex = 2 
50 TabStop = 0 'False 

Top - 240 

Width = 540 
End 

Begin VB.CommandButton cmdOK 
55 Cancel = -1 'True 
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; "OK" 



-1 'Triif* 

- 1 i rue 


Height — 

345 


T oft — 

L-ert — 


D 

Tablndex 

— n 

— u 


Tag 

"1079" 


Top = 

2625 


Width 

1467 


End 



Begin VB.CommandButton cmdSysIr 


Caption 

= M &System Info..." 


Height 

345 


Left 

4260 


Tablndex 

= 1 

15 

Tag 

"1078" 


Top 

3075 


Width 

1452 


End 



Begin VB. Label lblDescription 

90 

Caption 

- "Providing at the pi 


ForeColor 

= &H00000000& 


Height 

1170 


Left 

1050 


Tablndex 

= 6 

^ 

Tag 

"1083" 


Top = 

1125 

w 

Width 

4092 

hj 

End 



Begin VB.Label iblTitle 


Caption 

= "MediaVision" 


ForeColor 

- &H00000000& 

S 

Height 

480 

CI| 

Left 

1050 

J2 

Tablndex 

- 5 


Tag 

"1082" 


Top = 

240 


Width 

^ 4092 


End 



Begin VB.Line Linel 

40 

BorderColor 

= &H00808080& 


BorderStyle 

= 6 "Inside Solid 


Index = 

1 


XI 

225 


X2 

5657 


Yl 

2430 


Y2 

2430 


End 



Begin VB.Line Linel 


BorderColor 

- &H00FFFFFF& 

JU 

BorderWidth 

- 2 


Index = 

0 


XI 

240 


X2 

5657 


Yl 

2445 

55 

Y2 

2445 
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End 

Begin VB. Label Ibl Version 

Caption = "Version 1.1" 

Height = 225 
5 Left = 1050 

Tablndex = 4 

Tag - "1081" 

Top - 780 

Width = 4092 
10 End 

Begin VB.Label lblDisclaimer 

Caption = "Warning: „. Patent or Copyright Warning here" 

ForeColor - &H00000000& 

Height - 825 
15 Left = 255 

Tablndex = 3 

Tag = "1080" 

Top = 2625 

Width - 3870 
20 End 
End 

Public StartingAddress As String 
;f| Dim mbDontNavigateNow As Boolean 
25ff% Private Sub Form_Load( ) 
% On Error Resume Next 

LoadResStrings Me 
SI Me. Show 

If, tbToolBar.Refresh 
3G~ ■ FormResize 

cboAddress.Move 50, lblAddress.Top + lblAddress. Height + 15 

j: IfLen(StartingAddress)>OThen 
3 5jf cboAddress.Text = StartingAddress 

^ cbo Address. Addltem cboAddress.Text 

1^1 'try to navigate to the starting address 

timTimer.Enabled = True 

brwWebBrowser.Navigate StartingAddress 

40 End If 

End Sub 

Private Sub brwWebBrowser_DownloadComplete( ) 
45 On Error Resume Next 

Me.Caption = brwWebBrowser.LocationName 

End Sub 

Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant) 
50 On Error Resume Next 

Dim i As Integer 

Dim bFound As Boolean 

Me.Caption - brwWebBrowser.LocationName 

For i = 0 To cbo Address. ListCount - 1 
55 If cboAddress.List (i) = brwWebBrowser.LocationURL Then 
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bFound = True 
Exit For 

End If 

Next i 

5 mbDontNavigateNow = True 

If bFound Then 

cboAddress.Removeltem i 

End If 

cboAddress.Addltem brwWebBrowser.LocationURL, 0 
1 0 cboAddress.Listlndex = 0 

mbDontNavigateNow = False 

End Sub 

Private Sub cboAddressClick ( ) 
15 If mbDontNavigateNow Then Exit Sub 

timTimer.Enabled = True 
brw WebBrowser .Navigate cbo Address. Text 

End Sub 

20 Private Sub cboAddress_KeyPress(KeyAscii As Integer) 
On Error Resume Next 
If KeyAscii = vbKeyReturn Then 
r% cboAddressClick 
End If 

25 m 

End Sub 

S'j Private Sub FormResize ( ) 

3 Qr l On Error Resume Next 

^ cboAddress. Width = Me. Scale Width - 1 00 

1^ brw WebBrowser. Width = Me. Scale Width - 100 

brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + pic Address, Height) - 100 

#: End Sub 
35Hf 

y ? Private Sub timTimer Timer ( ) 

^ J If brw WebBrowser. Busy = False Then 

timTimer.Enabled = False 

Me.Caption = brwWebBrowser.LocationName 

40 Else 

Me.Caption = "Working..." 

End If 

End Sub 

45 Private Sub tbToolBar_ButtonClick(ByVal Button As Button) 
On Error Resume Next 

timTimer.Enabled = True 

50 Select Case Button.Key 

Case "Back" 

brwWebBrowser.GoBack 
Case "Forward" 

brwWebBrowser.GoForward 
55 Case "Refresh" 
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brwWebBrowser.Refresh 
Case "Home" 

brwWebBrowser.GoHome 
Case ''Search" 

brwWebBrowser.GoSearch 
Case "Stop" 

timTimer.Enabled = False 

brw WebBrowser. Stop 

Me. Caption = brwWebBrowser.LocationName 

End Select 
End Sub 


VERSION 5.00 

Object - "{83 1FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0 M ; "MSCOMCTL.OCX" 
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL" 


Begin VB.Form frmBrowser 



Caption = "MediaVision Web Browser" 

ClientHeight = 

5130 


L/iienti^ert ~ 

i(\fk(\ 


ClientTop = 

HAS 


ChentWidth = 

6540 


LinkTopic = 

"Form!" 


MJJicniia — 

-l 

'True 

ScaleHeignt - 

5130 


ScaleWidth - 

6540 


ni t 11 r\ 

SnowInTaskbar = 0 

'False 


Begin VB.Timer timTimer 



Enabled — 

0 

False 

Interval = 

5 


Lett 


/'ion 

6180 

Top 


1 jUU 

End 



Begin VB.PictureBox picAddress 



Align 


1 'Align Top 

BorderStyle 


0 'None 

Height 


675 

Left 


0 

ScaleHeight 


675 

ScaleWidth 


6540 

Tablndex 


4 

TabStop 


0 'False 

Top 


540 

Width 


6540 

Begin VB.ComboBox cboAddress 



Height 


315 

Left 


45 

Tablndex 


2 

Text 


"Combol" 

Top 


300 

Width 


3795 

End 



Begin VB.Label lblAddress 



Caption 


"& Address:" 

Height 


255 


16 


Left - 45 

Tablndex = 1 

Tag = "1090" 

Top = 60 

5 Width = 3075 
End 

End 

Begin MSComctlLib.Toolbar tbToolBar 

Align = 1 'Align Top 

10 Height = 540 

Left - 0 

Tablndex = 3 

Top = 0 

Width = 6540 

15 _ExtentX - 11536 

_ExtentY = 953 

ButtonWidth = 820 

ButtonHeight = 794 

Appearance = 1 

20 ImageList = "imlToolbarlcons" 

_Version = 393216 

BeginProperty Buttons {66833FE8-8583-1 1D1-B16A-00C0F0283628} 

p NumButtons = 6 

3 BeginProperty Buttonl {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

25^ Key = "Back" 

]S Object ToolTipText - "1084" 

3 5 . - 5 Imagelndex = 1 
J?J EndProperty 

;S BeginProperty Button2 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

30jf! Key - "Forward" 

m ObjectTooITipText = "1085" 

1^ Imagelndex = 2 
EndProperty 

j BeginProperty Button3 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

352f Ke y = " st °p M 

2 ObjectTooITipText - "1086" 

M Imagelndex = 3 
H 5 - EndProperty 

BeginProperty Button4 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

40 Key = "Refresh" 

ObjectTooITipText = "1087" 

Imagelndex = 4 
EndProperty 

BeginProperty Button5 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

45 Key = "Home" 

ObjectTooITipText = "1088" 

Imagelndex - 5 
EndProperty 

BeginProperty Button 6 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

50 Key = "Search" 

ObjectTooITipText - "1089" 

Imagelndex = 6 
EndProperty 
EndProperty 

55 End 
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Begin MSComctlLib.ImageList imlToolbarlcons 


10 


T eft 



Top 



oxtentA 


1 f\f\K 
IUUj 

_bxtentY 


1005 

BackColor 


-2147483643 

ImageWidth 


24 

ImageHeight 


24 

MaskColor 


12632256 

Version 


393216 


BeginProperty Images {2C247F25-8591-1 1D1-B16A-00C0F0283628} 


NumListlmages = 6 
BeginProperty Listlmagel {2C247F27-8591-1 1D1-B16A-00C0F0283628} 
15 Picture = {Binary} 

Key 

EndProperty 

BeginProperty Listlmage2 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 
Picture = (Binary} 

20 Key 
EndProperty 

BeginProperty Listlmage3 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 
p Picture = {Binary} 

Key 

25 pfi EndProperty 

j| BeginProperty Listlmage4 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

l\i Picture = {Binary} 

2f Key 
EndProperty 

30^; ^ BeginProperty Listlmage5 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

w Picture - {Binary} 

Key 

l£ EndProperty 

BeginProperty Listlmage6 {12C247F27-8591-1 1D1-B16A-00C0F0283628} 
35'Jf Picture = {Binary} 

^1 EndProperty 
t* 3 * EndProperty 
End 

40 Begin SHDocVwCtl. WebBrowser brwWebBrowser 

Height - 3734 

Left - 50 

Tablndex - 0 

Top = 1215 

45 Width = 5393 

ExtentX = 9513 

ExtentY = 6586 

ViewMode = 0 

Offline = 0 

50 Silent - 0 

RegisterAsBrowser = 0 

RegisterAsDropTarget= 1 

Auto Arrange = 0 'False 

NoClientEdge = 0 'False 

55 AlignLeft = 0 'False 
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ViewID = "(0057D0E0-3573-1 1CF-AE69-08002B2E1262)" 

Location = 

End 
End 

5 

Private Sub rtfText__SelChange() 

fMainForm.tbToolBar.Buttons( ,? Bold n ). Value = IIf(rtfText.SelBold } tbrPressed, tbrUnpressed) 
fMainForm.tbTooIBar.Buttons( ,t Italic n ). Value = IIf(rtfText.SelItalic, tbrPressed, tbrUnpressed) 
fMainForm.tbToolBar.Buttons( "Underline"). Value = IIf(rtfText.SelUnderline, tbrPressed, tbrUnpressed) 
1 0 fMainForm.tbToolBar.Buttons("Align Left").Value = IIf(rtfText.SelAlignment = rtfLeft, tbrPressed, tbrUnpressed) 

fMainForm.tbToolBar t Buttons("Center").Value = IIf(rtfText.SelAlignment = rtfCenter, tbrPressed, tbrUnpressed) 
fMainForm.tbToolBar.Buttons("Align Right"). Value = nf(rtfText SelAlignment = rtfRight, tbrPressed, tbrUnpressed) 
End Sub 

1 5 Private Sub Form_Load() 
FormResize 
End Sub 

Private Sub Form_Resize() 
20 On Error Resume Next 

rtfText.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200 
rtfText.RightMargin = rtfText. Width - 400 
q End Sub 

25 VERSION 5.00 

J Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.0CX" 
ut n Begin VB . Form frmDocument 

Caption = "MediaVision Document Editing" 



ClientHeight 

= 3195 

3o f!i 

ClientLeft 

= 60 


ClientTop 

- 345 


ClientWidth 

= 4680 


LinkTopic 

= "Forml" 


MDIChild 

= -1 True 

35 B! 

ScaleHeight 

= 3195 


ScaleWidth 

- 4680 


Begin RichTextLib.RichTextBox rtfText 


Height 

- 2000 


Left 

= 100 

40 

Tablndex 

= 0 


Top 

- 100 


Width 

- 3000 


ExtentX 

- 5292 


_ExtentY 

- 3519 

45 

_Version 

- 393217 


Enabled 

= -1 True 


ScrollBars 

= 3 


TextRTF 

= $ ,, frmDocumentfrx": 


End 


50 

End 



Private Declare Function GetUserName Lib "advapi3 2.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize 
As Long) As Long 

55 Public OK As Boolean 
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Private Sub Form_Load() 
Dim sBuffer As String 
Dim ISize As Long 

5 LoadResStrings Me 

sBuffer - Space$(255) 
ISize = Len(sBuffer) 
Call GetUserName(sBuffer, ISize) 
10 IflSize>0Then 

txtUserName.Text - Left$(sBuffer, ISize) 
Else 

txtUserName.Text = vbNullString 
End If 
15 End Sub 

Private Sub cmdCancel_Click() 
OK = False 
Me.Hide 
20 End Sub 

Private Sub cmdOK m Click() 
q 'ToDo: create test for correct password 
'check for correct password 

2 5 If txtPass word.Text = " " Then 

~J* OK - True 

lU Me.Hide 
ffi Else 

MsgBox "Invalid Password, try again!", , "Login" 

3 0Z J txtPass word, SetFocus 

J* txtPass word. SelStart - 0 

it txtPass word. SelLength = Len(txtPassword.Text) 

^ End If 

T End Sub 
35*Jf 

2 VERSION 5.00 

Begin VB.Form frmLogin 
&k BorderStyle = 3 'Fixed Dialog 

Caption = "MediaVision Login" 
40 ClientHeight - 1590 

ClientLeft - 45 
ClientTop = 330 
ClientWidth = 3750 
LinkTopic = "Forml" 
45 MaxButton = 0 'False 

MinButton = 0 'False 
ScaleHeight = 1590 
ScaleWidth - 3750 
ShowlnTaskbar = 0 'False 
50 StartUpPosition = 2 'CenterScreen 

Tag = "1064" 

Begin VB.CommandButton cmdCancel 
Cancel = - 1 True 
Caption - "Cancel" 
55 Height - 360 
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Left = 2100 
Tablndex = 5 
Tag = "1068" 

Top - 1020 

5 Width = 1140 

End 

Begin VB.CommandButton cmdOK 

Caption - "OK" 

Default = -1 True 
10 Height = 360 

Left - 495 

Tablndex = 4 

Tag = "1067" 

Top = 1020 

15 Width = 1140 

End 

Begin VB.TextBox txtPassword 
Height - 285 
IMEMode - 3 'DISABLE 
20 Left - 1305 

PasswordChar = "*" 
Tablndex = 1 
p Top - 525 

'li Width = 2325 

25 g End 

Begin VB.TextBox txtUserName 



Height 

= 285 


Left 

- 1305 


Tablndex 

= 3 

30 KI 

Top 

= 135 


Width 

= 2325 


End 



Begin VB. Label lblLabels 



Caption 

= "^Password: 


Height 

= 248 


Index 

= 1 


Left 

- 105 


Tablndex 

- 0 


Tag 

= "1066" 

40 

Top 

= 540 


Width 

= 1080 


End 



Begin VB.Label lblLabels 


Caption 

- "&UserNam 

45 

Height 

= 248 


Index 

= 0 


Left 

- 105 


Tablndex 

- 2 


Tag 

- "1065" 

50 

Top 

- 150 


Width 

= 1080 


End 



End 



5 5 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, By Val wMsg As 
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Long, ByVal wParam As Long, ByVal lParam As Any) As Long 
Const EMUNDO = &HC7 

Private Declare Function OSWinHelp% Lib M user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFileS, ByVal 
wCommand%, dwData As Any) 

5 

Private Sub MDIForm_Load() 
LoadResStrings Me 

Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000) 
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) 
1 0 Me. Width - GetSetting(App. Title, "Settings", "MainWidth", 6500) 

Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500) 
LoadNewDoc 
End Sub 

15 

Private Sub LoadNewDoc() 

Static IDocumentCount As Long 
Dim frmD As frmDocument 
IDocumentCount = IDocumentCount + 1 
20 Set frmD = New frmDocument 

frmD. Caption = "Document " & IDocumentCount 
frrnD.Show 
O End Sub 

Private Sub SetVideo() 
25fS 'Video files to be set up and sent via separate subroutine 
1* 'these files will be sent via internet and satellite 
JT f End Sub 

^ Private Sub Channel8() 
3Q[ I 'open channel 8 website and input weather forecast and seven 

w 'day planner graphic. These items will be combined with the 

'data stream and/or video stream and will be sent via subroutine 
'via internet and satellite. 
£ End Sub 
3 5jf Private Sub MDIForm_Unload(Cancel As Integer) 
z} Me. WindowState o vbMinimized Then 

O SaveSetting App.Title, "Settings", "MainLeft", Me.Left 

M* SaveSetting App.Title, "Settings", "MainTop", Me.Top 

SaveSetting App.Title, "Settings", "MainWidth", Me.Width 
40 SaveSetting App.Title, "Settings", "MainHeight", Me.Height 

End If 
End Sub 

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button) 
45 On Error Resume Next 

Select Case Button.Key 
Case "New" 

LoadNewDoc 
Case "Open" 
50 mnuFileOpenClick 
Case "Save" 

mnuFileSave_Click 
Case "Print" 
mnuFilePrint_Click 
55 Case "Cut" 
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mnuEditCut_CIick 
Case "Copy" 

mnuEditCopy_Click 
Case "Paste" 
5 mnuEditPaste_Click 
Case "Bold" 

ActiveForm.rtfTextSelBold = Not ActiveForm.rtfText.SelBold 
Button.Value = n^ActiveForm.rtfTextSelBold, tbrPressed, tbrUnpressed) 
Case "Italic" 

1 0 ActiveForm.rtfTextSelltalic = Not ActiveForm.rtfText.Sel Italic 

Button.Value = IIf(ActiveForm.rtfText.Selrtalic, tbrPressed, tbrUnpressed) 
Case "Underline" 

ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline 
Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed) 
15 Case "Align Left" 

ActiveForm.rtfText.SelAlignment = rtfLeft 
Case "Center" 

ActiveForm.rttText.SelAlignment = rtfCenter 
Case "Align Right" 
20 ActiveForm.rtfText.Sel Alignment = rtfRight 

Case "Camera" 

ToDo: Add 'Camera' button code, 
p-- MsgBox "Add 'Camera' button code." 

Case "Delete" 
25 ff, ToDo: Add 'Delete' button code. 

*2 MsgBox "Add 'Delete' button code." 

Case "Find" 

'ToDo: Add 'Find' button code. 
MsgBox "Add 'Find' button code." 
3 (F ! Case "View Details" 

^ 'ToDo: Add 'View Details' button code. 

MsgBox "Add 'View Details' button code." 
^ Case "Help What's This" 

;f; ToDo: Add 'Help What's This' button code. 

3 5[Jf MsgBox "Add 'Help What's This' button code." 

J Case "Help" 

Q ToDo: Add 'Help' button code. 

^ MsgBox "Add 'Help' button code." 

End Select 
40 End Sub 


Private Sub mnuHelpAbout_Click() 

frm About. Show vbModal, Me 
End Sub 

Private Sub mnuHelpSearchForHelpOn_Click() 
Dim nRet As Integer 


'if there is no helpfile for this project display a message to the user 
50 'you can set the HelpFile for your application in the 

'Project Properties dialog 
If Len(App.HelpFile) - 0 Then 

MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vb Information, 
Me.Caption 
55 Else 
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On Error Resume Next 

nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0) 
If Err Then 

MsgBox Err.Description 

5 End If 

End If 

End Sub 

1 0 Private Sub mhuHelpContents_Click() 
Dim nRet as Integer 

'if there is no helpfile for this project display a message to the user 
'you can set the HelpFile for your application in the 
1 5 'Project Properties dialog 

If Len(App.HelpFile) - 0 Then 
MsgBox "Unable to display Help Contents. There is no Help associated with this project." 
, vblnformation, Me.Caption 
Else 

20 On error Resume Next 

nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0) 
If Err Then 
£j MsgBox Err.Description 

S End If 

25m End If 

Q End Sub 

Private Sub mnu Window ArrangeIcons_Click() 
3Qi, i Me.Arrange vbArrangelcons 
2* End Sub 

if Private Sub mnuWindowTileVertical_Click() 
J* Me.Arrange vbTileVertical 
35jjf End Sub 

^ Private Sub mnuWindowTileHorizontal_Click() 
|=w Me.Arrange vbTileHorizontal 

End Sub 

40 

Private Sub mnuWmdowCascade_Click() 

Me.Arrange vbCascade 
End Sub 

45 Private Sub mnuWindowNewWindow_Click() 
LoadNewDoc 
End Sub 

Private Sub LoadInternet() 

open ,t http://www.msnxom/user8982734/23486219 t, 
50 'input news, stocks etc. through subroutine 

'output information to internet file through separate subroutine 
'output information to satellite file through seaprate subroutine 

End Sub 

55 
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Private Sub mnuToolsOptions_Click() 

frm Options. Show vbModal, Me 
End Sub 

Private Sub mnuViewWebBrowser_Click() 

Dim frmB As New frmBrowser 

frmB. Starting Address = l, http://www.mediavision.com" 

frmB. Show 
End Sub 

Private Sub mnuViewOptions_Click() 

frmOptions.Show vbModal, Me 
End Sub 

Private Sub mnuViewRefresh_Click() 

ToDo: Add 'mnuViewRefresh_Click' code. 

MsgBox "Add 'mnuViewRefresh_Click' code." 
End Sub 

Private Sub mnuViewStatusBar_Click() 
mnuViewStatusBar.Checked = Not mnuViewStatusBar. Checked 
sbStatusBar. Visible = mnuViewStatusBar.Checked 

End Sub 

Private Sub mnuViewToolbar_Click() 

mnuViewToolbar.Checked = Not mnuViewToolbar.Checked 

tbToolBar. Visible = mnuViewToolbar.Checked 
End Sub 

Private Sub mnuEditPasteSpecial_Click() 

ToDo: Add , mnuEditPasteSpecial_Click , code. 

MsgBox "Add 'mnuEditPasteSpecialClick' code." 
End Sub 

Private Sub mnuEditPaste_Click() 
On Error Resume Next 

ActiveForm.rtfText.SelRTF = Clipboard. GetText 
End Sub 

Private Sub mnuEditCopy_Click() 
On Error Resume Next 

CI ipboard. SetText Acti veForm .rtfText. SelRTF 
End Sub 

Private Sub mnuEditCut_Click() 
On Error Resume Next 

CI ipboard. SetText ActiveForm.rtfText.SelRTF 
Acti veForm. rtfText. SelText = vbNullString 

End Sub 

Private Sub mnuEditUndo_Click() 

ToDo: Add 'mnuEditUndo Click' code. 
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MsgBox "Add 'mnuEditUndojClick' code." 
End Sub 


Private Sub mnuFileExit_Click() 
'unload the form 
Unload Me 

End Sub 

Private Sub mnuFileSend_Click() 

ToDo: Add 'mnuFileSendClick' code, 
MsgBox "Add 'mnuFileSend^Click' code." 

End Sub 

Private Sub mnuFilePrint_Click() 
On Error Resume Next 
If ActiveForm Is Nothing Then Exit Sub 

With dlgCommonDialog 
.DialogTitle = "Print" 
.CancelError = True 

.Flags = cdlPDReturnDC + cdlPDNoPageNums 
If ActiveForm .rtfText.SelLength = 0 Then 

.Flags = .Flags + cdlPDAHPages 
Else 

.Flags = .Flags + cdlPDSelection 
End If 
.ShowPrinter 

If Err o MSComDlg.cdlCancel Then 

ActiveForm.rtfText.SelPrint .hDC 
End If 
End With 

End Sub 

Private Sub mnuFilePrintPreview_Click() 

ToDo: Add 'mnuFilePrintPreviewCIick' code. 
MsgBox "Add 'mnuFilePrintPreviewClick' code." 

End Sub 

Private Sub mnuFilePageSetup_Click() 
On Error Resume Next 
With dlgCommonDialog 

.DialogTitle = "Page Setup" 

.CancelError = True 

.ShowPrinter 
End With 

End Sub 

Private Sub mnuFileProperties_Click() 
ToDo: Add 'mnuFileProperties Click 1 code. 
MsgBox "Add , mnuFileProperties_Click' code." 

End Sub 


Private Sub mnuFileSaveAll_Click() 

ToDo: Add 'mnuFileSaveAll_Click' code. 

MsgBox "Add *mnuFileSaveAll_Click' code." 
End Sub 

Private Sub mnuFileSaveAs_Click() 
Dim sFile As String 

If ActiveForm Is Nothing Then Exit Sub 

With dlgCommonDialog 
.DialogTitle = "Save As" 
.CancelError = False 

ToDo: set the flags and attributes of the common dialog control 

.Filter -"All Files (*.*)]*.*" 

.ShowSave 

If Len(.FileName) = 0 Then 

Exit Sub 
End If 

sFile = .FileName 
End With 

ActiveForm. Caption = sFile 
ActiveForm.rtfText.SaveFile sFile 

End Sub 

Private Sub mnuFileSave_Click() 
Dim sFile As String 

If Left$(ActiveForm.Caption, 8) - "Document" Then 
With dlgCommonDialog 
.DialogTitle -"Save" 
.CancelError = False 

ToDo: set the flags and attributes of the common dialog control 

.Filter =" All Files (*.*)]*.*" 

.ShowSave 

If Len(.FileName) = 0 Then 

Exit Sub 
End If 

sFile = .FileName 
End With 

ActiveForm.rtfText.SaveFile sFile 
Else 

sFile = ActiveForm. Caption 
ActiveForm.rtfText.SaveFile sFile 
End If 

End Sub 

Private Sub mnuFileClose_Click() 

ToDo: Add WuFileClose^Click 1 code. 

MsgBox "Add 'mnuFileCloseJ^lick' code." 
End Sub 

Private Sub mnuFiIeOpen_Click() 
Dim sFile As String 
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If ActiveForm Is Nothing Then LoadNewDoc 


With dlgCommonDialog 
.DialogTitle - "Open" 
5 .CancelError = False 

ToDo: set the flags and attributes of the common dialog control 

.Filter = "All Files (*.*)|*.*" 

.ShowOpen 

If Len(.FileName) = 0 Then 
10 Exit Sub 

End If 

sFile = .FileName 
End With 

ActiveForm. rtfText.LoadFile sFile 
1 5 ActiveForm.Caption = sFile 

End Sub 

Private Sub mnuFileNew_Click() 
20 LoadNewDoc 
End Sub 

Q VERSION 5.00 

35 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.0CX" 
25m Object - "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
jr Begin VB.MDIForm frmMain 
s" s § Caption = "MediaVision 11 
X ClientHeight = 3195 
lZ ClientLeft - 60 
3CTI ClientTop = 630 
Ul ClientWidth = 4680 
^ % LinkTopic - "MDIForml" 
^ StartUpPosition = 3 "Windows Default 

Begin MSComctlLib.StatusBar sbStatusBar 
35l2 Align = 2 'Align Bottom 

J; Height = 270 

H Left = 0 

Tablndex = 0 
Top = 10560 

40 Width - 15240 

ExtentX = 26882 
_ExtentY = 476 
^Version = 393216 

BeginProperty Panels {8E3867A5-8586-1 1D1-B16A-00C0F0283628} 
45 NumPanels = 3 

BeginProperty Panell {8E3867AB-8586-11D1-B16A-00C0F0283628} 
Auto Size = 1 
Object. Width = 21246 
Text - "Status" 

50 TextSave = "Status" 

EndProperty 

BeginProperty Panel2 {8E3867AB-8586-1 1D1-B16A-00C0F0283628} 
Style = 6 
AutoSize = 2 
55 TextSave - "4/17/00" 
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EndProperty 

BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
Style = 5 
AutoSize = 2 
5 TextSave = "11:14 AM" 

EndProperty 
EndProperty 
End 

Begin MSComDlg.CommonDialog dlgCommonDiaiog 
10 Left = 720 

Top = 6240 

_ExtentX = 847 
_ExtentY - 847 
Version - 393216 
15 End 

Begin MSComctlLib.ImageList imlToolbarlcons 
Left = 600 
Top = 6960 

_ExtentX = 1005 
20 _ExtentY = 1005 

BackColor = -2147483643 
Image Width = 16 
ImageHeight = 16 
yj MaskColor = 12632256 

255 _Version = 393216 

if BeginProperty Images {2C247F25-8591-1 1D1-B16A-00C0F0283628} 

*U NumListlmages = 19 

nf BeginProperty Listlmagel {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

m Picture = "frmMain.frx":0000 

3(jrJ Key = "New" 

EndProperty 

BeginProperty Listlmage2 {2C247F27-859M 1D1-B16A-00C0F0283628} 
Picture - "frmMain.frx":0112 
!f: Key = "Open" 

3 SjJJ EndProperty 
2 BeginProperty Listlmage3 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

^ Picture = "frmMain.frx ,? :0224 

H Key - "Save" 

EndProperty 

40 BeginProperty Listlmage4 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture = n frmMain.frx n :0336 
Key = "Print 1 * 

EndProperty 

BeginProperty Listlmage5 {2C247F27-8591-1 1D1-B16A-00C0F0283628) 
45 Picture = "frmMain.frx":0448 

Key - "Cut" 

EndProperty 

BeginProperty Listlmage6 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 
Picture = "frmMain.frx":055A 
50 Key = "Copy" 

EndProperty 

BeginProperty Listlmage7 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 
Picture - "frmMain.frx M :066C 
Key = "Paste" 

55 EndProperty 
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BeginProperty Listlmage8 {2C247F27-8591-1 1D1-B16A-OOC0F0283628} 

Picture - "frmMain.frx":077E 

Key - "Bold" 

EndProperty 

BeginProperty Listlmage9 {2C247F27-8591-1 1D1-B16A-OOC0FO283628} 

Picture = "frmMain.frx ,f :0890 

Key - "Italic" 

EndProperty 

BeginProperty ListlmagelO {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture = "frmMain.frx":09A2 

Key = "Underline" 

EndProperty 

BeginProperty Listlmagell {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture - "frmMain.frx M :0AB4 

Key = "Align Left" 

EndProperty 

BeginProperty Listlmagel2 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture = "frmMain.frx M :0BC6 

Key = "Center" 

EndProperty 

BeginProperty ListlmageB {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture = n rrmMain.frx":0CD8 

Key = "Align Right" 

EndProperty 

BeginProperty Listlmagel4 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture - M frmMain.frx ,f :ODEA 

Key = "Camera" 

EndProperty 

BeginProperty Listlmagel5 {2C247F27-8591-11D1-B16A-00C0F0283628} 

Picture = n frmMain.frx":OEFC 

Key = "Delete" 

EndProperty 

BeginProperty Listlmagel6 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 

Picture = M frmMain.frx":100E 

Key - "Find" 

EndProperty 

BeginProperty Listlmagel7 {2C247F27-8591-1 1 D1-B16A-00C0F0283628} 

Picture = n frmMain.frx":1120 

Key = "View Details" 

EndProperty 

BeginProperty Listlmage 1 8 {2C247F27-85 9 1 - 1 1 D 1 -B 1 6 A-00C0 F0283 628 } 

Picture = "frmMain.frx":1232 

Key = "Help What's This" 

EndProperty 

BeginProperty Listlmagel9 {2C247F27-8591-1 1D1-B16A-00C0F0283628} 
Picture = "frmMain.frx":1344 
Key = "Help" 

EndProperty 
EndProperty 
End 

Begin MSComctlLib.Toolbar tbToolBar 
Align = 1 'Align Top 
Height = 420 
Left = 0 
Tablndex = 1 
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Top - 0 

Width = 15240 
_ExtentX = 26882 
_ExtentY = 741 
Button Width = 609 
Appearance = 1 
ImageList = "imlToolbarlcons" 
_Version = 393216 

BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
NumButtons - 23 

BeginProperty Button 1 {66833FEA-8583-11D1-B16A-00C0F0283628} 

Key = "New" 

Object.ToolTipText = "1037" 

ImageKey = "New" 
EndProperty 

BeginProperty Button2 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Open" 

Object.ToolTipText = "1038" 

ImageKey = "Open" 
EndProperty 

BeginProperty Button3 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Save" 

Object.ToolTipText - "1039" 

ImageKey = "Save" 
EndProperty 

BeginProperty Button4 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Style - 3 
EndProperty 

BeginProperty ButtonS {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Print" 

Object.ToolTipText = "1040" 

ImageKey = "Print" 
EndProperty 

BeginProperty Button6 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Style - 3 
EndProperty 

BeginProperty Button7 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Cut" 

Object ToolTipText - "1041" 

ImageKey - "Cut" 
EndProperty 

BeginProperty ButtonS {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Copy" 

Object.ToolTipText = "1042" 

ImageKey = "Copy" 
EndProperty 

BeginProperty Button9 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Paste" 

Object.ToolTipText = "1043" 

ImageKey - "Paste" 
EndProperty 

BeginProperty ButtonlO {66833FEA-8583-11D1-B16A-00C0F0283628} 

Style - 3 
EndProperty 

BeginProperty Button 1 1 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 
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Key = "Bold" 

Object.ToolTipText = "1044" 
ImageKey = "Bold" 
EndProperty 

BeginProperty Buttonl2 {66833FEA-8583-11D1-B16A-00C0F0283628} 

Key = "Italic" 

Object.ToolTipText = "1045" 

ImageKey = "Italic" 
EndProperty 

BeginProperty Button 1 3 {66833FEA-8583- 1 1 D 1 -B 1 6A-00C0 F0283 628 } 

Key = "Underline" 

ObjectToolTipText = "1046" 

ImageKey = "Underline" 
EndProperty 

BeginProperty Button 1 4 {66 83 3 FEA-85 83- 1 1 D 1 -B 1 6 A-00C0F0283 62 8 } 

Style = 3 
EndProperty 

BeginProperty ButtonlS {66833FEA-8583-1 1D1-B16A-00C0FO283628} 

Key - "Align Left" 

Object.ToolTipText = "1047" 

ImageKey - "Align Left" 

Style - 2 

EndProperty 

BeginProperty Button 16 {66833FEA-8583-1 1D1-B16A-00COFO283628} 

Key = "Center" 

ObjectToolTipText = "1048" 

ImageKey = "Center" 

Style - 2 
EndProperty 

BeginProperty Buttonl7 {66833FEA-8583-1 1D1-B16A-00C0FO283628} 

Key = "Align Right" 

Object.ToolTipText - "1049" 

ImageKey = "Align Right" 

Style = 2 
EndProperty 

BeginProperty Button 1 8 {66833FEA-8583- 1 1 D 1 -B 1 6A-O0C0FO283 628 } 

Key = "Camera" 

Object.ToolTipText = "1050" 

ImageKey = "Camera" 
EndProperty 

BeginProperty Button 1 9 {66833FEA-8583- 1 1 D 1 -B 1 6A-00C0F0283 628 } 

Key = "Delete" 

Object.ToolTipText = "1051" 

ImageKey = "Delete" 
EndProperty 

BeginProperty Button20 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Find" 

Object.ToolTipText - "1052" 

ImageKey = "Find" 
EndProperty 

BeginProperty Button21 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 
Key = "View Details" 

Object.ToolTipText = "1053" 
ImageKey = "View Details" 
Style = 2 
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EndProperty 

BeginProperty Button22 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 

Key = "Help What's This" 

Object.ToolTipText = "1054" 

ImageKey = "Help What's This" 
EndProperty 

BeginProperty Button23 {66833FEA-8583-1 1D1-B16A-00C0F0283628} 
Key = "Help" 

Object.ToolTipText = "1055" 
ImageKey = "Help" 
EndProperty 
EndProperty 
End 

Begin VB.Menu mnuFile 
Caption - "1000" 
Begin VB.Menu mnuFileNew 

Caption = "1001" 

Shortcut = A N 
End 

Begin VB.Menu mnuFileOpen 

Caption = "1002" 

Shortcut = a O 
End 

Begin VB.Menu mnuFileClose 

Caption = "1003" 
End 

Begin VB.Menu mnuFileBarO 

Caption = N - H 
End 

Begin VB.Menu mnuFileSave 

Caption = "1004" 
End 

Begin VB.Menu mnuFileSaveAs 

Caption - "1005" 
End 

Begin VB.Menu mnuFileSaveAll 

Caption = "1006" 
End 

Begin VB.Menu mnuFileBarl 

Caption = "-" 
End 

Begin VB.Menu mnuFileProperties 

Caption = "1007" 
End 

Begin VB.Menu mnuFileBar2 

Caption = "-" 
End 

Begin VB.Menu mnuFilePageSetup 

Caption - "1008" 
End 

Begin VB.Menu mnuFilePrintPreview 

Caption - "1009" 
End 

Begin VB.Menu mnuFilePrint 
Caption = "1010" 
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End 

Begin VB.Menu mnuFileBar3 

Caption = "-" 
End 

Begin VB.Menu mnuFileSend 

Caption = "1011" 
End 

Begin VB.Menu mnuFileBar4 

Caption - "-" 
End 

Begin VB.Menu mnuFileMRU 

Caption = 

Index = 1 

Visible = 0 'False 
End 

Begin VB.Menu mnuFileMRU 

Caption = "" 

Index = 2 

Visible = 0 'False 
End 

Begin VB.Menu mnuFileMRU 

Caption - "" 

Index = 3 

Visible - 0 'False 
End 

Begin VB.Menu mnuFileBar5 

Caption = "-" 

Visible = 0 'False 
End 

Begin VB.Menu mnuFileExit 

Caption = "1012" 
End 
End 

Begin VB.Menu mnuEdit 
Caption = "1013" 
Begin VB.Menu mnuEditUndo 

Caption = "1014" 
End 

Begin VB.Menu mnuEditBarO 

Caption = "-" 
End 

Begin VB.Menu mnuEditCut 

Caption = "1015" 

Shortcut = A X 
End 

Begin VB.Menu mnuEditCopy 

Caption = "1016" 

Shortcut = A C 
End 

Begin VB.Menu mnuEditPaste 

Caption = "1017" 

Shortcut = A V 
End 

Begin VB.Menu mnuEditPasteSpecial 
Caption = "1018" 


End 
End 

Begin VB.Menu mnuView 
Caption = "1019" 
Begin VB.Menu mnuViewToolbar 

Caption = "1020" 

Checked - -1 True 
End 

Begin VB.Menu mnuViewStatusBar 

Caption - "1021" 

Checked = -1 True 
End 

Begin VB.Menu mnuViewBarO 

Caption - "-" 
End 

Begin VB.Menu mnuViewRefresh 

Caption = "1022" 
End 

Begin VB.Menu mnuViewOptions 

Caption = "1023" 
End 

Begin VB.Menu mnu View WebBrowser 

Caption = "1024" 
End 
End 

Begin VB.Menu mnuTools 
Caption - "1025" 
Begin VB.Menu mnuToolsOptions 

Caption = "1026" 
End 

End 

Begin VB.Menu mnu Window 
Caption = "1027" 
WindowList = -1 True 
Begin VB.Menu mnu WindowNew Window 

Caption - "1028" 
End 

Begin VB.Menu mnuWindowBarO 

Caption = "-" 
End 

Begin VB.Menu mnuWindowCascade 

Caption - "1029" 
End 

Begin VB.Menu rnnuWindowTileHorizontal 

Caption - "1030" 
End 

Begin VB.Menu mnuWindowTileVertical 

Caption = "1031" 
End 

Begin VB.Menu mnu Window Arrangelcons 

Caption = "1032" 
End 
End 

Begin VB.Menu mnuHelp 
Caption = "1033" 


Begin VB.Menu mnuHelpContents 

Caption = "1034" 
End 

Begin VB.Menu mnuHelpSearchForHelpOn 
5 Caption - "1035" 

End 

Begin VB.Menu mnuHelpBarO 

Caption = "-" 
End 

1 0 Begin VB.Menu mnuHelpAbout 

Caption = "1036" 
End 
End 
End 

15 

Private Sub Form_Load() 

LoadResStrings Me 
End Sub 

20 Private Sub cmdApply_Click() 

ToDo: Add 'cmdApply^Click' code. 

MsgBox "Apply Code goes here to set options w/o closing dialog! " 
f*i End Sub 

25iiJ Private Sub cmdCancel_Click() 
jp Unload Me 
u] End Sub 

L}i Private Sub cmdOK_Click() 
3(f" J ToDo: Add 'cmdOK^Click' code. 

^ MsgBox "Code goes here to set options and close dialog!" 

1^ Unload Me 
^ End Sub 

35Jj;[ Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
^ Dim i As Integer 

M i = tbsOptions.Selectedltem.Index 

'handle ctrl+tab to move to the next tab 
If (Shift And 3) = 2 And KeyCode = vbKeyTab Then 
40 If i = tbsOptions.Tabs.Count Then 

'last tab so we need to wrap to tab 1 
Set tbsOptions.Selectedltem = tbsOptions.Tabs(l) 
Else 

'increment the tab 

45 Set tbsOptions.Selectedltem = tbsOptions.Tabs(i + 1) 

End If 

Elself (Shift And 3) = 3 And KeyCode - vbKeyTab Then 
If i = 1 Then 

'last tab so we need to wrap to tab 1 
50 Set tbsOptions.Selectedltem = tbsOptions.Tabs(tbsOptions.Tabs, Count) 

Else 

'increment the tab 

Set tbsOptions.Selectedltem = tbsOptions.Tabs(i - 1) 
End If 
55 End If 
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End Sub 


Private Sub tbsOptions_Click() 

5 Dim i As Integer 

'show and enable the selected tab's controls 

'and hide and disable all others 

For i = 0 To tbsOptions Tabs. Count - 1 

If i = tbsOptions.Selectedltem.Index - 1 Then 
10 picOptions(i).Left = 210 

picOptions(i). Enabled = True 
Else 

picOptions(i).Left = -20000 
picOptions(i).Enabled = False 
15 End If 

Next 

End Sub 

20 VERSION 5.00 

Object- "{83 lFDD16-0C5C-llD2-A9FC-OOOOF8754DAl}#2.0#0 n ; 
"MSCOMCTL.OCX" 
rj Begin VB.Form frmOptions 
y[J BorderStyle = 3 'Fixed Dialog 
25fp Caption = "MediaVision Options" 
j* ClientHeight - 5040 
ui CHentLeft = 45 
S| ClientTop = 330 
m ClientWidth = 6150 
3(5". | KeyPreview = -1 True 
^ LinkTopic - "Forml" 
MaxButton = 0 'False 
*5 MinButton = 0 'False 
J* ScaleHeight = 5040 
35lj ScaleWidth = 6150 

ShowInTaskbar = 0 'False 
H StartUpPosition = 1 'CenterOwner 
Tag = "1069" 

Begin VB.CommandButton cmdOK 
40 Caption = "OK" 

Height - 375 
Left - 2490 
Tablndex = 1 
Tag = "1076" 

45 Top = 4455 

Width = 1095 
End 

Begin VB.CommandButton cmdCancel 

Cancel = -1 True 
50 Caption = "Cancel" 

Height - 375 

Left = 3720 

Tablndex = 3 

Tag - "1075" 

55 Top - 4455 
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Width = 1095 
End 

Begin VB.CommandButton cmdApply 


Caption 

= n &Apply' 

Height 

= 375 

Left 

= 4920 

Tablndex 

- 5 

Tag 

= "1074" 

Top 

- 4455 

Width 

= 1095 


End 

Begin VB.PictureBox picOptions 
BorderStyle = 0 'None 
Height - 3780 
Index = 3 
Left = -20000 
ScaleHeight = 3840.968 
ScaleMode = 0 'User 
Scale Width - 5745.64 
Tablndex = 7 
TabStop - 0 'False 
Top = 480 

Width = 5685 
Begin VB. Frame fraSample4 

Caption = "Sample 4" 

Height = 2022 

Left = 505 

Tablndex = 1 1 

Tag = "1073" 

Top - 502 

Width = 2033 
End 
End 

Begin VB.PictureBox picOptions 


BorderStyle 

= 0 'None 

Height 

= 3780 

Index 

= 2 

Left 

= -20000 

ScaleHeight 

- 3840.968 

ScaleMode 

- 0 'User 

ScaleWidth 

- 5745.64 

Tablndex 

- 9 

TabStop 

= 0 'False 

Top 

= 480 

Width 

= 5685 

Begin VB. Frame fraSample3 

Caption 

= M Sample3 

Height 

- 2022 

Left 

= 406 

Tablndex 

= 10 

Tag 

= "1072" 

Top 

= 403 

Width 

= 2033 

End 



End 


Begin VB.PictureBox picOptions 
BorderStyle = 0 'None 
Height - 3780 
Index = 1 
5 Left = -20000 

ScaleHeight - 3840.968 
ScaleMode = 0 'User 
ScaleWidth - 5745.64 
Tablndex - 6 
10 TabStop = 0 'False 

Top = 480 

Width = 5685 
Begin VB.Frame fraSample2 
Caption - "Sample 2" 
15 Height = 2022 

Left - 307 
Tablndex = 8 
Tag = "1071" 

Top =305 
20 Width = 2033 

End 
End 

f=l Begin VB.PictureBox picOptions 
JJ BorderStyle = 0 'None 

25 SJ Height - 3780 

Index = 0 
Ti Left = 210 

ScaleHeight = 3840.968 
ScaleMode = 0 'User 
30jt! ScaleWidth = 5745.64 

Tablndex = 2 
^ TabStop = 0 'False 

Top - 480 

If; Width - 5685 

35jjf Begin VB.Frame fraSamplel 

Caption = "Sample 1" 
O Height = 2022 

I- Left = 208 

Tablndex = 4 
40 Tag = "1070" 

Top - 207 

Width - 2033 
End 
End 

45 Begin MSComctlLib.TabStrip tbsOptions 

Height = 4245 

Left = 120 

Tablndex = 0 

Top - 120 

50 Width - 5895 

_ExtentX = 30398 

_ExtentY - 7488 
Version - 393216 

BeginProperty Tabs (1EFB6598-857C-1 1D1-B16A-00C0F0283628} 
55 NumTabs = 4 
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BeginProperty Tabl {1EFB659A-857C-1 1D1-B16A-00C0F0283628} 

Caption - "Group 1" 

ImageVarType = 2 
EndProperty 

5 BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 

Caption = "Group 2" 
ImageVarType = 2 
EndProperty 

BeginProperty Tab3 {1EFB659A-857C-1 1D1-B16A-0OC0FO283628} 
10 Caption = "Group 3" 

ImageVarType = 2 
EndProperty 

BeginProperty Tab4 {1EFB659A-857C-1 1D1-B16A-00C0F0283628} 
Caption - "Group 4" 
15 ImageVarType = 2 

EndProperty 
EndProperty 
End 
End 

20 

Private Sub Form_Load() 
LoadResStrings Me 

G lblVersion. Caption = "Version " & App.Major & "." & App.Minor & "." & App. Revision 
=£= IblProductName. Caption = App. Title 
25 m End Sub 


30^: 


VERSION 5,00 



Begin VB.Form 

frmSplash 

BorderStyle 

= 3 

'Fixed ] 

ClientHeight 

= 4710 

ClientLeft 

= 45 


ClientTop 

= 45 


ClientWidth 

- 7455 

ControlBox 

- 0 

'False 

LinkTopic 

= "Forml" 

MaxButton 

= 0 

'False 

MinButton 

- 0 

'False 

ScaleHeight 

= 4710 

ScaleWidth 

- 7455 


40 ShowInTaskbar = 0 'False 

StartUpPosition = 2 'CenterScreen 
Visible = 0 'False 
Begin VB.Frame fraMainFrame 
Height = 4590 
45 Left = 45 

Tablndex = 0 
Top - -15 

Width = 7380 
Begin VB.PictureBox picLogo 
50 Height = 2385 

Left =510 

Picture = "frmSplash.frx":0000 
ScaleHeight = 2325 
ScaleWidth = 1755 
55 Tablndex = 1 
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Top = 855 

Width = 1815 
End 

Begin VB. Label lblProductName 
5 AutoSize = -1 'True 

Caption = "Product Name?" 
BeginProperty Font 
Name = "MS Sans Serif ' 

Size - 29.25 

10 Charset = 0 

Weight = 700 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
1 5 EndProperty 

Height - 720 
Left - 2670 
Tablndex = 8 
Tag - "1062" 

20 Top = 1200 

Width - 4395 
End 

pi Begin VB.Label lblCompanyProduct 

j% AutoSize = -1 True 

25 SS Caption = "MediaVision" 

BeginProperty Font 
7" Name - "MS Sans Serif 

m size = 18 

^ Charset = 0 

30^ Weight - 700 

™ ? Underline = 0 'False 

JL* Italic - 0 'False 

: % Strikethrough = 0 'False 

2! EndProperty 

35^f Height - 435 

2; Left ^ 2505 

^ Tablndex = 7 

H Tag = "1061" 

Top - 765 

40 Width =2175 

End 

Begin VB.Label lblPlatform 
Alignment = 1 'Right Justify 
AutoSize = -1 True 
45 Caption = "Platform? Satellite or Internet" 

BeginProperty Font 
Name - "MS Sans Serif 
Size = 13.5 

Charset = 0 
50 Weight = 700 

Underline = 0 'False 
italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 
55 Height - 360 


Left = 3000 
Tablndex = 6 
Tag - "1060" 

Top - 2400 

5 Width = 4005 

End 

Begin VB.Label IblVersion 
Alignment = 1 'Right Justify 
AutoSize = -1 True 
10 Caption = "Version 1 . 1" 

BeginProperty Font 
Name = "MS Sans Serif ' 
Size - 12 
Charset = 0 
15 Weight = 700 

Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 
20 Height = 300 

Left = 5625 

Tablndex = 5 
H Tag = "1059" 

% Top = 2760 

25 S Width - 1380 

!£ End 

Begin VB.Label Ibl Warning 



Caption 

= "Patent or Copyrigl 


Height 

= 195 


Left 

= 300 


Tablndex 

= 2 


Tag 

= "1058" 


Top 

- 3720 


Width 

= 6855 


End 



Begin VB.Label IblCompany 


Caption 

= "MediaVision, Inc. 


Height 

- 255 


Left 

= 4710 

40 

Tablndex 

- 4 


Tag 

- "1057" 


Top 

= 3330 


Width 

- 2415 


End 


45 

Begin VB.Label lblCopyright 


Caption 

= "Copyright 2000" 


Height 

= 255 


Left 

= 4710 


Tablndex 

= 3 

50 

Tag 

= "1056" 


Top 

- 3120 


Width 

- 2415 


End 



End 


55 

End 
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Public fMainForm As frmMain 


Sub MainO 

Dim fLogin As New frmLogin 
fLogin.Show vbModal 
If Not fLogin.OK Then 

'Login Failed so exit app 

End 
End If 

Unload fLogin 

frmSpIash.Show 

frm Splash.Refresh 

Set fMainForm = New frmMain 

Load fMainForm 

Unload frmSplash 

fMainForm.Show 
End Sub 

Sub LoadResStrings(frm As Form) 
On Error Resume Next 

Dim ctl As Control 
Dim obj As Object 
Dim fht As Object 
Dim sCtlType As String 
Dim nVal As Integer 

'set the form's caption 

frm.Caption = LoadResString(CInt(frm.Tag)) 

'set the font 

Set fnt = frm.Font 

fht.Name = LoadResString(20) 

fnt.Size = CInt(LoadResString(21)) 

'set the controls' captions using the caption 
'property for menu items and the Tag property 
'for all other controls 
For Each ctl In frm. Controls 
Set ctl.Font = mt 
sCtlType = TypeName(ctl) 
If sCtlType = "Label" Then 

ctl.Caption = LoadResString(CInt(ctLTag)) 
Elself sCtlType = "Menu" Then 

ctl.Caption = LoadResString(CInt(ctl. Caption)) 
Elself sCtlType = "TabStrip" Then 
For Each obj In ctLTabs 
obj. Caption = LoadResString(CInt(obj.Tag)) 
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText)) 
Next 

Elself sCtlType = "Toolbar" Then 
For Each obj In ctl.Buttons 
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obj.ToolTipText = LoadResString(CInt(obj.ToolTipText)) 
Next 

Elself sCtlType = "ListView" Then 

For Each obj In ctl.ColumnHeaders 

obj.Text - LoadResString(CInt(obj.Tag)) 

Next 
Else 

nVal = 0 

nVal = Val(ctl.Tag) 

If nVal > 0 Then ctl.Caption - LoadResString(nVal) 
nVal = 0 

nVal = Val(ctl.ToolTipText) 

If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal) 
End If 
Next 

End Sub 

Figures 2 and 3 are flow charts illustrating the software functionality of Phase I software 
ticker and image processing components (a.k.a. ticker and image components, respectively). In the 
invention's preferred embodiment, said Phase I software operates in a Windows® environment, 
however the invention's programming logic is neither platform specific nor dependent. 

The data acquisition central processing unit can utilize a dial-up connection, but normally 
functions with a high-speed Internet connection and can communicate directly with the remote site 
central processing units, or can upload information via FTP, HTTP, or HTTPS protocols. 

Figure 2 illustrates a software processing component which facilitates the retrieval, 
processing, and transmitting of "Ticker" information. Such information represents a variety of 
viewer-essential information including, but not limited to, current national news headlines, local 
news headlines, national and local sports headlines, national and local sports scores, stock quotes, 
stock market indices and news 2.05. 

The Phase I processing component is capable of retrieving and inputting 2.07 information 
from the Internet, virtual private network (VPN), or direct modem connection and can be customized 
for an individual client. For example, if the client is a bank the ticker could retrieve current CD rates 
and other client-specific information. 
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The data acquisition central processing unit contains a database which segregates remote site 
central processing units by assigning each group and sub-group codes 2.04. Such codes can be 
assigned based upon geographic or other criteria 2.12 and this processing component allows for 
complete user-definable groups and sub-groups. 

These codes are utilized to determine information to be sent to each remote computer. For 
example, each or every remote computer within a metropolitan area may be sent local news and 
weather information specific to that area 2. 12. 

Once ticker information for each remote computer has been generated 2.07, 2.08, it is 
transmitted either directly to the remote computer (via direct modem connection, VPN, or FTP) 2.15 
or is transmitted to a private web server 2.05. A web server acts as a repository of information which 
is continually updated and available for the remote site central processing units to download. 

Figure 3 illustrates the program processing means steps which facilitate the processing and 
transmitting of image files. The invention's image files consist of, but are not limited to, full-motion 
video (FMV), graphics, animations, and streaming video. Audio is also a component of these file 
types and can be integrated into the file itself or can be a separate file played (executed) in 
synchronization with the image file. 

Non-limiting examples of the invention's image files include, but are not limited to, 
corporate commercials, public service ads, current weather graphics (retrieved from the Internet or 
other means on a continuing basis), local and national sports team schedules, National Weather 
Service advisories and warnings, traffic flow information, or fugitive information 3.02. 

Image and audio files can be obtained from clients, user-generated, or retrieved from the 
Internet. Once obtained, these files are stored in an indexed database 3.03 on the data acquisition 
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central processing unit (or on a computer accessible via network connection to the data acquisition 
central processing unit). 

In Figure 3, the user next creates "playlists" on the data acquisition central processing unit 
3.07. These "playlists" consist of indexed references to image files, audio files, and ticker 
information. The "playlists" are designed and designated for groups, sub-groups, or individual 
remote site central processing units 3.07. 

The Phase I image processing component processes these "playlists" as they are entered by 
the user and maintains an inventory (database) of file names located on each remote computer. 
When a "playlist" is created by the user, the program determines which remote site central 
processing units are to be included. The processing component then compares the "playlist" with 
the file names of the addressed remote site central processing units. 

If files required to execute the "playlist" are not on a particular remote computer, then the 
appropriate files are transmitted directly to the remote computer or they are transmitted to a private 
web server 3.09. The "playlists" are also transmitted to the specified remote site central processing 
units. 

Once a "playlist" is entered, the processing component ensures that requested files are 
available to the data acquisition central processing unit. If they are not, an error message is 
generated, and the user is prompted to download the necessary files to the data acquisition central 
processing unit (or to a computer residing on the same network as the data acquisition central 
processing unit). 

The Phase I image processing component also contains sub-routines designed to detect 
problematic occurrences at the transmitting site. These occurrences may be, but are not limited to, 
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a faulty Internet connection, a loss of feedback from a remote computer, or a failure of one of the 
other programs running on the computer. 

When problems are detected the program can send notification of these occurrences to an 
appropriate service technician. These notifications can be in the form of, but are not limited to, 
5 visual screen notification, e-mails, a transmission to a private web server, or a signal sent to a pager. 
The data acquisition central processing unit is designed with several redundant systems. First and 
foremost is a fully-functional computer which contains a program to verify the functionality of the 
data acquisition central processing unit. If any problems are detected, a secondary computer will 
begin operations and take over all of the ticker and image processing component transmission 
10 functions. 

5| Several redundancies are in place for the private web server. Should the server fail for any 

y reason, another private web server will be automatically chosen and utilized in its stead. 

^ Figure 4 is a flow chart representing Phase II software functionality. The remote site central 

processing units are currently operating in a Windows® environment, but the programming is not 

15f|j platform specific. Phase II software source code is immediately provided to facilitate purposes of 

O full and enabling invention disclosure. 

This form will not be visible. It will be running on the remote computer 
'at the store locations 

20 Private Sub Receive() 

'Open Internet Web Site and Download New Data for Ticker 

'Open Internet Web Site and Download and Changes to Video Segments 

'Open Satellite Files from Satellite Receiver (both data and video) 

25 End Sub 

Private Sub Transmit() 

Transmit video feed to monitors on pumps. 

Transmit ticker to bottom portion of monitors on pumps. 

30 

Ticker information will come from the data stream 
'and will contain national news, sports scores, dow jones 
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'industrial avg., nasdaq avg., s&p500 avg., local news, 
'local weather 
End Sub 


VERSION 5.00 

Begin VB.Form frmDataEnv 

Caption = "MediaVision Internet and Satellite Receiving" 

ClientHeight = 3195 

ClientLeft - 60 

ClientTop = 345 

ClientWidth = 4680 

LinkTopic = "Forml" 

ScaleHeight = 11115 

ScaleWidth = 15240 

StartUpPosition = 3 'Windows Default 
End 


VERSION 5.00 

Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironmentl 
ClientHeight = 5055 
ClientLeft = 1080 
ClientTop = 1500 
ClientWidth - 6300 
_ExtentX = 11113 
_ExtentY = 8916 
FolderFlags = 3 

TypeLibGuid - "{A5DC9AF5-9235-1 1D1-B067-00DD01 144174}" 
TypelnfoGuid = "{A5DC9AF6-9235-1 1D1-B067-00DD01 144174}" 
TypelnfoCookie = 0 
Version - 4 
NumConnections = 1 
BeginProperty Connection 1 


ConnectionName 

= "Connection 1 

ConnDispId = 

1001 

SourceOfData = 

3 

QuoteChar = 

34 

SeparatorChar = 

46 

EndProperty 


NumRecordsets = 

0 


End 


VERSION 5.00 

Begin {78E93846-85FD-1 1D0-8487-00A0C90DC8A9} DataReportl 


Caption 

= "DataReportl" 

ClientHeight 

= 8235 

ClientLeft 

= 1650 

ClientTop 

= 1545 

ClientWidth 

- 6585 

JExtentX 

= 11615 

_ExtentY 

- 14526 

Version 

= 393216 


_DesignerVersion= 100684101 

BeginProperty Font {0BE35203-8F91-1 1CE-9DE3-00AA004BB851} 
Name = "Arial" 

Size = 8.25 


48 


Charset - 0 

Weight = 400 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
GridX = 10 
GridY - 10 
LeftMargin - 1440 
RightMargin = 1440 
TopMargin = 1440 
BottomMargin = 1440 
Num Sections = 3 
SectionCodeO = 2 

BeginProperty SectionO {1C13A8E0-A0B6-1 1D0-848E-00A0C90DC8A9} 
Version = 393216 

Name - "Section2" 

Object.Height = 360 

NumControls = 0 
EndProperty 
SectionCodel = 4 

BeginProperty Sectionl {1C13A8E0-A0B6-1 1D0-848E-00A0C90DC8A9} 

^Version = 393216 

Name = "Sectionl" 

Object.Height = 1440 

NumControls = 0 
EndProperty 
SectionCode2 = 7 

BeginProperty Section2 {1C13A8E0-A0B6-1 1D0-848E-00A0C90DC8A9} 
Version = 393216 
Name = "Section3" 
Object.Height = 360 
NumControls = 0 
EndProperty 
End 


'sending a video file and ticker to monitors 

Private Sub MMControll GotFocus() 
'MMControll.Command = 'Open" 
'MMControll.PlayVisible = True 
'MMControll.PlayEnabled = True 
'MMControll.Command = "Play" 
'MMControll. Visible = False 


End Sub 


Private Sub MediaPlayerl_DVDNotify(ByVal EventCode As Long, By Val EventParaml 
As Long, By Val EventParam2 As Long) 

This will play a video file taking up the majority of the screen as defined on the form 

MediaPlayerl.FileName = "c:\windows\desktop\videoLmpg ft 

MediaPlayerl.Open 

MediaPlayerl.Stop 


End Sub 
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Private Sub Ticker() 

'Open data file containing raw text for ticker 
'format data 
'send to monitors 
5 End Sub 

VERSION 5.00 

Object = ,, (22D6F304-B0F6-llD0-94AB-008OC74C7E95)#1.0#0 n ; M MSDXM.OCX l 
Begin VB.Form Forml 


1 0 

Caption = 

"Forml" 


ClientHeight 

3195 


ClientLeft 

60 


ClientTop 

345 
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Lu The remote site central processing units can utilize a dial-up connection or a high-speed 

r| j Internet connection. The computer can communicate directly with the data acquisition central 
O processing unit via modem or VPN. It can also download information via FTP, HTTP, or HTTPS 
35 protocols from the private web server on the Internet. 

The remote site central processing units download the "playlists" designated for their receipt 
4.02. If a direct link is established with the data acquisition central processing unit, then the 
necessary files (image, audio, ticker information) are also received 4.03. 

If there is no direct link with the data acquisition central processing unit, then the "playlist" 
40 is analyzed by the program. If the "playlist" refers to files which the remote computer does not have 
on its hard disk, then the files are downloaded from the private web server. 
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The ticker information is downloaded 4.06 or received very frequently (usually every five 
to ten minutes). This facilitates the timely refreshing of news and other time-critical information to 
the viewer. 

All downloaded files are stored on the remote computer's hard drive 4.08. Audio and video 
files are archived when not being used, but the ticker information is usually overwritten as newer 
information is obtained. 

The computer combines the ticker information with the image and audio files according to 
the "playlist". A video and audio signal are created with this combined information. This signal is 
sent to video monitors via a hard wire or RF signal as indicated in the hardware description 4.10. 

The ticker information is normally contained within a horizontal strip at the bottom of the 
monitor's viewable screen area. However, the ticker can be placed at the top or in a vertical 
alignment. The remainder of the screen is filled with the appropriate video signal corresponding to 
the "playlist". 

The program also contains sub-routines designed to detect problematic occurrences at the 
remote site 4.19. These occurrences may be, but are not limited to, a faulty Internet connection, a 
loss of video or audio at a video screen, or a failure of one of the other programs running on the 
computer. 

When problems are detected the program can send notification of these occurrences to the 
appropriate service technician 4.20. These notifications can be in the form of, but are not limited 
to, e-mails, a transmission to a private web server, or a signal sent to a pager. 

In some instances, the screens may have sensors located on or near them. These sensors 
include, but are not limited to, sonic, motion, or light. The sensors are software-controlled via a 
communications port hub 4.23. 
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The sonic sensor measures the decibel level at each screen location. This information is used 
by the program to control the audio volume which is sent to that screen 4.25. 

The motion sensor detects when a vehicle (or a user-defined object) has approached the 
screen 4.27. This information is used by the program to determine when the screen is active or 
passive. The light sensor measures the radiance level at each screen location. This information is 
used by the program to control the brightness and contrast of each screen 4,29. 

The program is designed to allow for input from the viewer 4.32 (or user in this instance) at 
each screen location. This input can be from, but is not limited to, a remote keypad, a voice 
recognition system facilitated by a microphone, a receiver designed to detect electronic signatures, 
an optical scanner, or a barcode reader. 

The keypad can be numeric or alpha-numeric 4.35. The data received by the remote 
computer from the keypad can be utilized to respond to user queries, or to accumulate and display 
information based upon user preferences, 

A voice recognition system can be composed of a wide-area microphone at the screen 
location. The microphone signal would be processed by a sound board or a specialized speech- 
recognition card located within the computer. This signal is interpreted via a combination of 
hardware and software technology. The data received by the remote computer from the voice 
recognition technology can be utilized to respond to user queries, or to recognize voice signatures 
which correspond to customizable user profiles. 

An electronic signature can be detected by a receiver located at each screen location. These 
electronic signatures can be generated by an RF device, or other user-specific electronic transmitting 
mechanism. The electronic signature would be unique to each user and would identify that user to 
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the remote computer. Once identified, commercials or other information can be tailored specifically 
for that individual based upon their profile. 

An optical scanner or a barcode reader can be utilized to identify specific users and customize 
information based upon their profile. An optical scanner or a barcode reader can also be used for 
the purpose of reading coupons, "tickets", or other company-generated written instruments. For 
example, a contest could be created and "tickets" printed up. The "ticket" could be identified by the 
optical scanner or the barcode reader, and the user notified as to whether or not they are a winner. 
Video and video/audio cameras can be located at each screen or facing towards each screen 4.37. 
The signals from each camera can be wired through a video control box first or they can be wired 
directly into a multi-function digital capture card in the computer. The signals are segregated so that 
the program is aware of each individual video signal. 

These video/audio captures can be either time-lapsed or full-motion (up to 30 frames per 
second, or fps). The captured digital images and sound can be stored locally on the remote 
computer, streamed to another computer, or they can be transmitted to a private web server for later 
retrieval by an employee or designated client 4.39. 

The video and audio can be used for many purposes, including but not limited to, security, 
contests, or verification of screen functionality. 

When the audio/video is utilized as a security mechanism, the uses are many-fold. The 
video/audio can be used to identify vehicles which drive away from the pump without paying. It can 
be used to identify individuals who commit vandalism. It can be used to identify robbery suspects, 
or persons attempting to harm the employees of a client. 
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The audio/video digital recording can also be used to identify vehicle tag numbers, which 
can later be used to pick out the winner of a contest. This recording of vehicle tag numbers is also 
an effective method of locating those who drive away from the pump without paying (driveaways). 
A very important aspect of the video/audio recording is the ability to detect and trouble-shoot any 
5 problems with the screens. These cameras ensure that the screens are proj ecting an image when they 
should be. If there is a problem, it can be easily determined which screens are malfunctioning so that 
a service technician can be dispatched to make any needed hardware repairs. 

Finally, the cameras at or near the screens act as a deterrent to unlawful behavior. They 
reduce the incidence of driveaways, and possibly even the number of robbery and vandalism 
1 0 attempts at a client' s location. 
42 Figure 5 illustrates high level Phase I software 3 processes executing within the data 

ni acquisition central processing unit 5, accessing and collecting via a network communication means 
m a diverse plurality of geographically relevant information 5.05. Said collated information is then 
Ij displayed on a computer resident and accessible storage medium, such as a web page 5.8. 
1 5fK Accompanying video and still images 5 .9 are provided as further records and also displayed on said 
^ accessible storage medium 5.12. This information is then combined 5.15 and is communicated via 
a computer recognizable and compatible communication means via a transfer protocol such as FTP 
to a transceiver facility 5.17 for subsequent processing by Phase II components of the instant 
invention. Phase II components of the information are disclosed in association with Figure 6. 
20 Figure 6 illustrates Phase II of the instant invention wherein the combined ticker, video, still 

image file is transmitted to multiple geographically dispersed remote receiving locations. As each 
segment (a.k.a. "record") of ticker, video and still image records contain delineation control code 
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inserted via first software processing, only codes matching those of geographically relevant locations 
within a geographically dispersed area will receive and be able to decode such information. 
Consequently, only information for an individual remote station, group of stations, located within 
a neighborhood, city, town, country, etc. will receive coded information. Such coded information 
5 is then processed by software resident at the store location 6.5 and further transmitted via either RF 
signal or hard wire to screens 6.10 or information presentation devices 6.15 approximate to fuel 
pump gassing apparatuses. Such features of the display apparatuses are shown in conjunction with 
Figure 7. 

In Figure 7 a display device 7.01 is presented. The screen display area is broken into two 
1 0 U general areas. A display area for photographs or images 7. 1 5 and a display area for textural images 
JE 7.20, 7.10 designates speaker areas for audio content accompanying said display images or files, 
til While this invention has been described to illustrative embodiments, this description is not 

^ to be construed in a limiting sense. Various modifications and combinations of the illustrative 
J;j embodiments as well as other embodiments will be apparent to those skilled in the art upon 
153! referencing this disclosure. It is therefore intended that this disclosure encompass any such 
^ modifications or embodiments. 

Alternate Embodiments 

The foregoing description, for purposes of explanation, used specific nomenclature to provide 
a thorough understanding of the invention. However, it will be apparent to one skilled in the art that 
the specific details are not required in order to practice the invention. In other instances, well known 
circuits and devices are shown in block diagram form in order to avoid unnecessary distraction from 

56 


the underlying invention. Thus, the foregoing descriptions of specific embodiments of the present 
invention are presented for purposes of illustration and description. They are not intended to be 
exhaustive or to limit the invention to the precise forms disclosed, obviously many modifications 
and variations are possible in view of the above teachings. The embodiments were chosen and 
described in order to best explain the principles of the invention and its practical applications, to 
thereby enable others skilled in the art to best utilize the invention and various embodiments with 
various modifications as are suited to the particular use contemplated. It is intended that the scope 
of the invention be defined by the following claims and their equivalents. 

Further, the method and system described herein above is amenable for execution on various 
types of executable mediums others than a memory device such as a random access memory. Other 
types of executable mediums can be used, such as but not limited to, a computer readable storage 
medium which can be any memory device, compact disc, or floppy disk. 
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What Is Claimed Is: 


1 1. An audiovisual presentation system to retrieve, dynamically modify and present 

2 geographically relevant content to one or more discernible receiving locations within a larger 

3 universe of such locations based on specified user criteria, said system comprising: 

4 at least one data acquisition general purpose computer comprising a central 

5 processing unit and at least one video display unit and at least one input device 

6 communicably attached to said central processing unit, said video display and input device 

7 configured to facilitate user interaction with said central processing unit; 

8 at least one data acquisition database in communication with said central processing 
9/2 unit, video display and input device, said database permitting said user to interactively store 

1 Qjj and manipulate said geographically relevant data based upon said criteria; 

1 lOI first data acquisition and manipulation software residing and executing within said 

12^ ? data acquisition central processing unit to analyze said database based upon said criteria 

13|| specified by the user via said video display and input devices, said software execution 

1401 yielding geographically relevant and encoded audio and visual content; 

1 9^ at least one receiving site general purpose computer comprising a central processing 

1 6 unit and at least one video display unit and at least one input device communicably attached 

17 to said central processing unit, said video display and input device configured to facilitate 

1 8 user interaction with said receiving site central processing unit; 

19 at least one receiving site content database in communication with said receiving site 

20 central processing unit, video display and input device, said database permitting said remote 

21 user to interactively store and manipulate geographically relevant data; 
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22 a least one decoding means communicably attached to said data acquisition and said 

23 receiving site general purpose computers, said decoding means facilitating the acquisition 

24 of geographically relevant encoded information intended for presentation to computer 

25 compatible audio and visual devices communicably attached to said receiving site general 

26 purpose computer; 

27 second data acquisition and manipulation software residing and executing within said 

28 receiving site central processing unit to analyze said acquired geographically relevant 

29 information , said second data acquisition and manipulation software execution yielding a 

30 customized presentation of geographically relevant audio, visual and text content upon 
3 1 computer compatible audio and visual devices communicably attached to said receiving site 
32 Jf general purpose computer. 

1 J* 2. The system as recited in claim 1 wherein said data acquisition and said receiving site general 

2j* purpose computers, are communicably attached via a computer compatible communications 

3ffi network. 

1 3. The system as recited in claim 1 wherein said input devices are computer keyboards or 

2 computer mouses and said video displays are computer monitors. 

1 4. The system as recited in claim 1 wherein said presented geographically relevant content is 

2 visually perceptible text data. 
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